Дана квадратная матрица N*N. Подсчитать количество четных элементов в данной матрице — QBasic(Бейсик)

CONST N = 10
DIM A(N, N)
CLS
K = 0
PRINT "Masiv A:"
FOR I = 1 TO N
FOR J = 1 TO N
A(I, J) = INT(RND * 100)
PRINT A(I, J);
IF A(I, J) MOD 2 = 0 THEN K = K + 1
NEXT J
PRINT :
NEXT I
PRINT "K="; K